Wstęp do programowania systemowego 



GetlnWec (no:bvte: INT:pointer) { np. GetlntVec($lC,tennp); } 
Procedura zwracająca wskaźnik do procedury przerwania o numerze no. 
SetlntVec (no.byte; vector:pointer) { np. SetlntVec($lC,@>procedj; } 

Procedura ustawiająca procedurę wskazywaną przez wskaźnik vector jako przerwanie o numerze no. 

lntr(intNO:byte; reg:registersj { np. lntr($lA,regj; } 

Procedura wykonująca przerwanie o numerze intNO, przy rejestrach reg. 

MsDos ( reg-.registers) 

Procedura wykonująca przerwanie DOS numer 21h (33) przy rejestrach reg. 
Reoisters: 

Typ używany przez procedury intr i msdos do reprezentacji rejestrów procesora. Jest rekordem wielowariantowym: 



TYPE 








Registers = record 








case Integer of 








0: (AX, BX, ex, DX, 


BP, SI, DI, 


DS, 


ES, Flags: Word) ; 


1: (AL, AH, BL, BH, 


CL, CH, DL, 


DH : 


Byte) ; 


end; 









Budowa 16-bit. rejestru znaczników tflaas): 

bity 15-12: nieużywane 

bit 11: przepełnienie (OF) 

bit 10: kierunek operacji łańcuchowych (DF) 

bit 9: uaktywnienie przerwań (IF) 

bit 8: pułapka (TF) 

bit 7: znak (SF) 

bit 6: zero (ZF) 

bit 5: nieużywane 

bit 4: przeniesienie pomocnicze (AF) 

bit 3: nieużywane 

bit 2: parzystość (PF) 

bit 1: nieużywane 

bit 0: przeniesienie (CF) 

Stale do testowania pojedynczych bitów rejestru flag procesora: 

Stała Wartość 
FCARRY OOOlh 
FPARITY 0004h 
FAUXILIARY OOlOh 
FZERO 004011 
FSIGN OO8OI1 
FOYERFLOW 0800h 
Stałe dostępu plil<ów: 
FMCLOSED D7B0h 
FMINPUT D7Blh 
FMOUTPUT D7B2h 
FMINOUT D7B3h 

Stałe atrybutów plil<ów: 

READONLY Olli 
HIDDEN O2I1 
SYSFILE 04łi 
YOLUMEID 08łi 
DIRECTORY lOli 
ARCHIYE 2OI1 
ANYFILE 3Fłi 

Me/n, lyiemL, oraz MemW 

Turbo Pascal posiada trzy predefiniowane tablice służące do bezpośredniego odwoływania się do pamięci: Mem, MemL, oraz MemW. 

■ Każdy element tablicy Mem jest typu Byte 

■ Każdy element tablicy MemW jest typu Word 

■ Każdy element tablicy MemL jest typu Longint. 

Tablice Mem posiadają specyficzną składnie z dwoma indeksami: dwa słowa typu integer oddzielone dwukropkiem określające segment i offset pamięci. 
Mem[seg:ofs]; 



Addr 

Function Addr{X: TAnyType): Pointer; 

Addr zwraca wskaźnik na swój argument, który może być dowolnego typu, także nazwą procedury lub funkcji. Zwracany wskaźnik jest nietypowany. Ten sam 
efekt można uzyskać za pomocą operatora @, który może zwracać wskaźnik typowany. 



Program AdresyZmiennych; 

{Program demonstrujący działanie funkcji Addr} 


Const 




Zero : Integer 


= 0; 


Var 




P : Pointer; 
I : Integer; 




Begin 
P : =Addr ( P ) ; { 
P : =Addr ( I ) ; { 
P:=Addr (Zero) ; { 

End. 


P wskazuje na samą siebie } 
P wskazuje na I } 
P wskazuje na Zero } 



OM 

Returns the offset of the address of a variable. 



Program Example4 4; 

{ Program to demonstrate the Ofs function. } 

Var W : Pointer; 

begin 

W : =Pointer (Of s (W) ) ; { W contains its own offset. } 
end. 



Ptr 

Function Ptr{Seg, Ofs: Word) - zwraca wskaźnik na [SegiOfs] 
Sep 

Seg returns the segment of the address of a variable 



Program Example60; 

{ Program to demonstrate the Seg function. } 
Var 

W : Word; 

begin 

W:=Seg(W); { W contains its own Segment} 
end . 



SizeOf 

Function SizeOf{V): Word - wielkość zmiennej w pamięci 
FilIChar 

Fili memory region with certain character 



procedurę FilIChar ( 
var x; 

count: Sizeint ; 
Value: Char 

) ; 

f/7/c/ior fills the memory starting at X with Count bytes or characters with value equal to l/o/ue. 



High 

Return highest index of open array or enumerated 
Low 

Return Iowest index of open array or enumerated 



Move 

Move moves Count bytes from Source to Dest. 



Program Example42; 

{ Program to demonstrate the Move function. } 

Var SI, S2 : String [30] ; 

begin 

SI :='Hello World ! ' ; 
S2 :='Bye, bye ! ' ; 
Move (SI, S2, Sizeof (SI) ) ; 
Writeln (S2) ; 
end. 

Zadanie 1 

Napisz program (może być z użyciem procedury/funl<cji) wyświetlający l<od ASCII znaku wprowadzonego przez użytkownika (np. 'a' 97). Należy zastosować 
rzutowanie zmiennej jednego typu na inny (w grę wchodzą typy: Char i Byte). 

Przykład rzutowania zmiennej typu zdefiniowana tablica na typ Word; 

type 

tab=array [ 1 . . 2 ] of Char; 

var 

a: Word; 
b: tab; 
begin 

Word(b) :=$AB09; 



Rozwiązanie: 

'progranr^aET~T7^^^^^^^^^~^^^^^^^^^~ 

uses crt,dos; 
var 

c : char; 
begin 

writeln (' Poda j jakiś znak: '); 
readln (c) ; 

writeln ('Kod ASCII tego znaku to: '); 
writeln (byte (c) ) ; 
readln; 
end . 



Zadanie 2 

Zadanie takie jak wyżej, ale zamiast rzutowania użyj zmiennych absolutnych (dyrektywa absolute). 
Przykład: 

Ty^ 

tab=array [ 1 . . 2 ] of Char; 

var 

a: Word; 

b: tab absolute a; 
Rozwiązanie: 



program labl_2; 
uses crt,dos; 
var 
c : char; 

b:byte absolute c; 
begin 

writeln (' Poda j jakiś znak: '); 
readln (c) ; 

writeln ('Kod ASCII tego znaku to: '); 
writeln (b) ; 
readln; 
end. 



Zadanie 3 

Zadanie takie jak wyżej, ale zamiast rzutowania lub zmiennych absolutnych (dyrektywa absolute) użyj zmiennych wskaźnikowych/wskazywanych. Wskazówka: 
adres zmiennej przechowującej znak przypisuj zmiennej wskazującej na wartości typu Byte - łatwiej wtedy wyświetlać zawartość zmiennej wskazywanej z 
jednoczesną konwersją na postać znakową. Posłuż się funkcją Addr() lub operatorem @. 
Rozwiązanie: 



program labl_3; 
uses crt,dos; 
var 

c : char ; 

w: '~byte; 

begin 

writeln ( ' Poda j jakiś znak: '); 
readln (c) ; 
w:=addr (c) ; 

writeln ('Kod ASCII tego znaku to: '); 
writeln (w'" ) ; 
readln; 
end. 



Blok opisu pliku (FCB) 

numer napędu - 1 bajt (0=dysk roboczy (bieżący),l=dysk A,2=dysk B, 
itd.) 

nazwa pliku - 8 bajtów 

rozszerzenie nazwy - 3 bajty 

bieżący blok - 2 bajty 

dt. rekordu - 2 bajty 

dt. pliku - 4 bajty 

data ost. modyfikacji - 2 bajty 

czas ost. modyfikacji - 2 bajty 

zarezerwowane - 8 bajtów 

bieżący rekord w bloku - 1 bajt 

bieżący rekord w dostępie swobodnym - 4 bajty 

Bajt z atrybutami pliku: 

7,6 - nieużywane 
5 - archive file 
4 - podkatalog 
3 - etykieta dysku 
2 - system file 
1 - hidden file 
O - read-oniy file 

Łańcuch tekstowy ASCIlZ 

To łańcuch zakończony znakiem pustym (pozycja O w tabeli ASCII lub inaczej #0). Tego typu łańcuchy przechowuje się w tablicach znakowych o podstawie O lub w 
miejscach wskazywanych zmienną typu PChar. Używanie łańcuchów ASCIlZ znacząco ułatwia wykorzystanie funkcji/procedur z modułu Strings. Łańcuch ASCIlZ 
nie przechowuje swojej długości tak jak robi to łańcuch typu String. Efektywna pojemność łańcucha ASCIlZ ograniczona jest wielkością dostępnej pamięci (w 
praktyce do 64 kB) a więc jest znacznie większa, niż dla typu string. 

type 

tab_zero = array [O . .20] of Char; 

var 

a: tab_zero; 

wówczas musi być a[20] :=#0; 

lub 

var 

a: PChar; (PChar to to samo co ^Charj 
Zadanie 1. 

Napisz program, który wydrukuje na ekranie komputera zawartość tablicy wektorów przerwań. Numery przerwań i adresy procedur ich obsługi powinny być 
wydrukowane w kodzie szesnastkowym, przy czym adresy powinny by podzielone na segment i offset. (Wskazówka - przerwania są numerowane od 0-255, do 
pobrania adresu procedury obsługi przerwania użyć procedury GetlntVec). 

program lab2_l; 
uses 

dos, crt; 

var 

i,j,k,nr przerw:byte; 
adr_wekt : pointer ; 

function znak(liczba: byte):char; 
begin 

if liczba<10 then 

znak:=chr (48+liczba) 

else 

znak:=chr (55+liczba) 

end; 



function bajt_16 (liczba :byte) :string; 
begin 

ba j t_15 :=znak (liczba div 15) +znak (liczba mod 15); 
end; 

function slowo_15 (liczba : word) :string; 
begin 

slowo_15:=bajt_15 (hi (liczba) ) +bajt_15 (lo (liczba) ) ; 
end; 

begin 

for i:=0 to 3 do 

begin 

writeln ( 'Tablica wektorów przerwań od ',54*i,' do ',54*i+53,' (od $ ' , ba j t_15 ( 54*i ) , ' do 
$' ,bajt_15 (54*i+53) ,'):'); 
writeln; 

for j :=0 to 15 do 
begin 

for k:=0 to 3 do 
begin 

nr_pr zerw :=54*i+j+15*k; 

getintvec (nr_przerw, adr_wekt) ; 

write ( ' $ ' ,bajt_16 (nr_przerw) , ' - ' , slowo_16 (seg (adr_wekt^) ),':', slowo_15 (ofs (adr_wekt'~) ),''); 
end; 

writeln; 
end; 
readln; 
end; 

end. 

Zadanie 2. 

Zaprezentuj działanie funl<cji przerwania 21h l<ończącej działanie programu. ($4C lub $00) 

program lab2_2; 
uses ort, dos; 

var 

rejestry: registers ; 
i :byte; 

begin 

with rejestry do 
begin 

ah:=$4c; 

end; 
clrscr ; 

write (' Kończenie pracy programu'); 
for i : =3 downto O do begin 
write ('..', i ) ; 
delay (1000) ; 
end; 

intr ($21, rejestry) ; 
readln; 
end. 

Zadanie 3. 

Zaprezentuj działanie funl<cji przerwania 21łi odczytującej czas systemowy.($2C) 

uses crt,dos; 
procedurę data; 

var reg: registers ; 
begin 

with reg do 
begin 

ah:=$2c; 

intr ($21, reg) ; 

writeln (' Czas systemowy: ' , ch, ' : ' , cl, ' : ' , dh) ; 
end; 
end; 

begin 

clrscr; 

data; 

readln; 
end. 



Zadanie 4. 

Zaprezentuj działanie funl<cji przerwania 21hi odczytującej datę systemową.($2A) 

program lab2_4; 

uses crt,dos; 
procedurę data; 



var reg: registers; 
begin 

with reg do 
begin 

ah:=$2a; 

intr ($21,reg) ; 

writeln ( ' Data systemowa : ' , dl , ' - ' , dh, ' - ' , ex) ; 
end; 

end; 
begin 

clrscr ; 
data; 
readln; 

end. 
Zadanie 5. 

Zaprezentuj działanie funl<cji przerwania 21h zmieniającej l<atalog bieżący.($3B) 

uses dos; 

procedurę zmien_kat; 

var 

reg: registers; 
str, pom: string; 
begin 

str:='d:\213A\'+#0; 
getdir ( O , pom) ; 
writeln (pom) ; 
with reg do begin 
ah:=$3b; 

ds : =seg (str [ 1 ] ) ; 
dx:=ofs(str[l] ) ; 
end; 

{intr ($21, reg) ; } 
msdos (reg) ; 

if (reg.flags and fcarry)=l then 
{if (reg.flags and 1)=0 then} 

writeln (reg . ax) ; 

getdir (O, pom) ; 

writeln (pom) ; 
end; 
begin 

zmien_kat; 

readln; 
end. 

Zadanie 6. 

Zaprezentuj działanie funkcji przerwania 21łi zmieniającej nazwę pliku. ($56 lub $17) 

uses dos,crt; 
procedurę zmiana_nazwy; 
var 

tab: registers; 
nazwa, nowa_nazwa : string; 
begin 

nazwa : = 'piotrek . txt ' +#0 ; 

nowa_nazwa : = ' j acek . txt ' +#0 ; 
with tab do 
begin 

ah:=$56; 

ds : =seg (nazwa [ 1 ] ) ; 
dx:=of s (nazwa [1] ) ; 
es : =seg (nowa_nazwa [ 1 ] ) ; 
di : =of s (nowa_nazwa [ 1 ] ) ; 
end; 

intr ($21, tab) ; 

end; 

begin 

clrscr; 

zmiana_nazwy; 

readln; 

end. 

Zadanie 7. 

Zaprezentuj działanie funkcji przerwania 21ti tworzącej nowy plik.($3C lub $16) 

program lab2_5; 
uses dos,crt; 

procedurę nowy_plik; 
var 

tab : registers; 
nazwa : string; 
begin 

nazwa := 'plik. txt'+#0; 



with tab do 
begin 
ah:=$3c; 

ds : =seg (nazwa [ 1 ] ) ; 

dx:=of s (nazwa [1] ) ; 
end; 

intr ($21,tab) ; 
end; 

begin 
clrscr ; 
nowy_plik; 
readln; 
end. 



Zadanie 8. 

Zaprezentuj działanie funkcji przerwania 21h usuwającej plil<. 

uses dos; 
var 

r : registers; 
s : string; 
begin 



s : = ' d : \2 13a\xxx . txt ' ; 


{6} 


r .ah:=$41; 


{7} 


r . ds :=seg (s [ 1 ] ) ; 


{8} 


r .dx:=ofs (s [1] ) ; 


{9} 


intr ($21, r) ; 


{10} 



end. 
Zadanie 9. 

Zaprezentuj działanie funkcji przerwania 21łi tworzącej podkatalog. 

program lab2_5; 
uses dos,crt; 

procedurę podkatalog; 
var 

tab: registers; 
nazwa : string; 
begin 
nazwa := 'pod_kat ' +#0; 

with tab do 
begin 

ah:=$39; 

ex : =2 ; 

ds :=seg (nazwa) ; 
dx:=of s (nazwa) +1; 
end; 
intr ($21, tab) ; 

if(tab.flags and 1)=0 then writeln ( 'OK' ) ; 
end; 

begin 

clrscr; 

podkatalog; 

readln; 

end. 

Zadanie 10. 

Zaprezentuj działanie funkcji przerwania 21h odczytującej znak z klawiatury (jaki znak/klawisz naciśnięto). 

program lab; 
uses crt,dos; 

procedurę odczyt_znaku; 
var reg : registers ; 
begin 

with reg do 

begin 

ah:=$l; {9} 
intr ($21, reg) ; {10} 
writeln; 

writeln (' Odczytany klawisz: ',al); {12} 

end; 

end; 
begin 

clrscr; 

odczyt_znaku; 

readln; 



end. 



Zadanie 11. 

Zaprezentuj działanie funl<cji przerwania 21h odczytującej ciąg znal<ów z l<lawiatury. Jest to tzw. buforowane wejście. 

program lab2_ll; 
uses dos,crt; 

type TBuf=record 
max : byte ; 
curr : byte ; 

buf : array [ O . . 255] of char; 
end; 

var bufor :TBuf; 
i : byte ; 

procedurę odczyt_ciag; 
var 

tab : registers; 
begin 

writeln (' Podaj max: '); 
readln (bufor. max) ; 

with tab do 
begin 

ah:=$OA; 

ds : =seg (bufor) ; 

dx:=ofs (bufor) ; 

msdos (tab) ; 
end; 

writeln; 
for i:=0 to bufor. curr do 

begin 

write (bufor .buf [i] ) ; 
end; 
end; 

begin 
clrscr ; 
odczyt_ciag; 
readln; 
end. 



Zadanie 12. 

Zaprezentuj działanie funkcji przerwania 2Vn wysyłającej znal< na el<ran. Jest to tzw. buforowane wyjście. 

program lab2_ll; 
uses dos,crt; 
procedurę wysli j_znalc; 
var 

tab: registers; 
z :byte; 
begin 

writeln ( ' Podaj znak ' ) ; 
readln (z) ; 
with tab do 
begin 

ah:=$2; 

dl : =z ; 

intr ($21,tab) ; 

end; 

end; 
begin 
clrscr; 
wysli j_znak; 
readln; 
end. 

Laboratorium Nr 4 
Zadanie 1. 

Napisz program wyświetlający l<ill<a informacji o sprzęcie, na l<tórym jest urucliamiany (przerwania: $11 oraz $15 funl<cja $C0). Wskazówka: proponowana 
funkcja przerwania $15 zwraca adres/wskaźnik pewnego obszaru z danymi w pamięci; aby łatwo odczytywać poszczególne pola z tego obszaru najlepiej posłużyć 
się predefiniowaną tablicą Mem. 



uses dos,crt; 
var 

r : registers ; 

procedurę zadl (reg: registers) ; 



var tmp : integer ; 
str : string; 
begin 
clrscr ; 

intr($ll, reg) ; 
tmp:=reg.ax; {0} 

if (tmp and 1)=0 then str:='Brak' else str :=' Jest ' ; 
writeln (' Stacja dyskietek: ',str); 
tmp : =tmp shr 1 ; 

if (tmp and 1)=1 then str:='Jest' else str:='Brak' ; 
writeln ( ' Zainstalowany procesor 80x87: ', str); {1} 
tmp : =tmp shr 1 ; 

if(tmp and 1)=1 then str:='Jest' else str :='Brak' ; 
writeln ( ' Zainstalowane urządzenie PS/2: ', str); {2} 
tmp : =tmp shr 2 ; 

if (tmp and 2)=2 then str:='Tak' else str:='Nie'; 

writeln (' Tryb graficzny 80x25 color: ', str); {4 initial video mode} 
tmp : =tmp shr 2 ; 

writeln (' Ilosc stacji dyskietek: ', tmp and 3); {7-5} 
tmp : =tmp shr 3 ; 

writeln (' Ilosc urządzeń szeregowych: ', tmp and 7); {9} 
tmp : =tmp shr 3 ; 

writeln (' Zainstalowany port gier: ', tmp and 1); {12} 
tmp : =tmp shr 2 ; 

writeln (' Ilosc urządzeń szeregowych: ', tmp and 3); {14} 
end; 

begin 

zadl (r) ; 

readln; 
end. 



Zadanie 2. 

Zaprezentuj działanie przerwań BlOSa związanych z obsługą klawiatury (przerwanie $16 funkcja SOO i/lub inne związane z odczytem znaków z klawiatury oraz 
odczytem jej stanu, tzn. z uwzględnieniem klawiszy modyfikujących! typu Shift, Ctrl, CapsLock, itp.)- 

uses dos,crt; 



var 

r : registers ; 

procedurę zad2 (reg: registers) ; 
var 

tmp :byte; 
begin 

reg.ah:=02; 

intr ($16, reg) ; 

tmp : =reg . al ; { O } 

writeln (' Prawy shift: 



tmp: 

tmp: 

tmp: 

tmp: 

tmp: 

tmp: 

tmp: 
end; 
begin 

zad2 (r) 

readln; 
end. 



tmp shr 1 
tmp shr 1 



tmp shr 
tmp shr 
tmp shr 
tmp shr 
tmp shr 



, tmp and 1 ) ; 
writeln (' Lewy shift: ', tmp and 
writeln ( 'Ctrl: ', tmp and 1); {2 
writeln { 'Alt : ', tmp and 1); {3} 
writeln (' ScrollLock : ', tmp and 
writeln ( 'NumLock: ', tmp and 1) ; 
writeln (' CapsLock : ', tmp and 1) 
writeln (' Insert : ' 



1); {1} 



1) 



tmp and 1 ) ; { 7 ) 



; {4} 
5} 
6} 



Zadanie 3. 

Zaprezentuj działanie przerwań BlOSa odczytujących datą i czas systemowy. Zwróć uwagę czy wybrane przerwanie nie zwraca liczb w kodzie BCD. 



uses dos,crt; {czas systemowy} 
var 

r: registers; 

procedurę zad3 (reg : registers) ; 
var 

tmp, Id, Ij , Is :byte; 
begin 
reg.ah:=02; 

intr ($1A, reg) ; 

ld:=10* (reg.ch shr 4)+ (reg. oh and $0f ) ; {konwersja BCD->BIN} 

Ij :=10* (reg.cl shr 4)+ (reg. cl and $0f ) ; 

ls:=10* (reg.dh shr 4)+ (reg.dh and $0f ) ; 

writeln ( 'Godzina: ' , Id, ' : ' , Ij , ' : ' , Is) ; 
end; 
begin 



zad3 (r) ; 
readln; 
end. 



uses dos,crt; {data systemowa} 
var 

r : registers ; 

procedurę zad4 (reg: registers) ; 
var 

tmp, Id, Ij , Is, dl :byte; 
begin 
reg . ah : =04 ; 
intr ($1A, reg) ; 

ld:=10* (reg.ch shr 4)+ (reg.ch and $0f ) ; 

Ij :=10* (reg.cl shr 4)+ (reg. cl and $0f ) ; 

ls:=10* (reg.dh shr 4)+ (reg.dh and $0f ) ; 

dl:=10* (reg.dl shr 4)+ (reg. dl and $0f ) ; 

if(reg.flags and fcarry)=0 then writeln ( ' OK ' ) ; 

writeln ( ' Wiek : ' , Id) ; 
writeln ( ' Rok ; ',lj); 

writeln ( 'Miesiąc : ',ls); 

writeln (' Dzień : ',dl); 
end; 
begin 

zad4 (r) ; 

readln; 
end. 

Zadanie 4. 

Spróbuj programowo wywołać efekt cyklicznie zmieniających się zapaleń/zgaśnięć diod odpowiadających za klawisze NumLock, CapsLock i ScrollLock. 
Zadanie 5. 

Spróbuj wymusić traktowanie wszystkich wprowadzanych z klawiatury liter jako dużych. 
Programowanie arafild na przerwaniach 

Standardowym trybem pracy tekstowej jest tryb 40 (lub 80) kolumn na 25 wierszy. Pojedynczy znak tworzy matryca 9x16 pikseli (znak kodowany w kodzie ASCII 
zajmuje 1 bajt, niezależnie od matrycy czy trybu tekstowego). Z każdym znakiem na ekranie związany jest ponadto jego atrybut określający m.in. kolor znaku i 
kolor tła pod znakiem. Atrybut zajmuje 1 bajt (format bajtu opisany przy przerwaniu $10 funkcja $08). Ponadto grafikę można umieszczać na tzw. stronach 
pamięci video. Oznacza to, że pamięć karty graficznej została podzielona na kilka części - w każdej można niezależnie pisać/rysować. W danej chwili aktywna jest 
tylko jedna strona - to ona jest wyświetlana na ekranie (technicznie rzecz ujmując - ów fragment pamięci jest „przerzucany" na ekran). Zmiana numeru aktywnej 
strony powoduje bardzo szybkie odrysowanie zawartości ekranu (jest to mechanizm tzw. bufferingu). 

Znaki na ekranie tekstowym można umieszczać na dwa sposoby: 

• przez bezpośredni wpis do pamięci ekranu (metoda szybsza) 

• przez wywołania funcji BIOSu (metoda wolniejsza) 

Metoda 1 

Najpierw metoda pierwsza: adres pamięci od którego rozpoczyna się umieszczanie znaków to $B800:$0000 (kolorowa karta zgodna z VGA, postać adresu: 
segment:offset). Dla każdego znaku na ekranie przydzielono w pamięci 2 bajty: pierwszy to kod ASCII znaku, drugi - jego atrybut Umieszczanie zaczyna się w 
lewym górnym rogu ekranu. W ten sposób znak umieszczony w lewym górnym rogu powinien zostać wpisany (jego kod ASCII) pod adres $B800:$0000, zaś jego 
atrybut - $B800:$0001. Znak obok (ten sam wiersz, kolejna kolumna) to adresy odpowiednio: $B800:$0002 i $B800:S0003. Do wyświetlenia znaku (lub 
ewentualnie odczytania go z ekranu) należy wykorzystać tablicę Mem (lub MemW, jeśli komuś wygodniej). 

Funkcje BlOSa do grafiki tekstowej (metoda 2) 

Funkcje te zgromadzono w przerwaniu nr $10. Oto najważniejsze z nich: 

• $0F - odczyt stanu ekranu (m.in. aktywna strona) 

• $08, $09 - odczyt/zapis znaku (z atrybutem) w miejscu położenia kursora 

• $02, $03 - odczyt/ustawienie położenia kursora na ekranie 

• $01 - ustawienie typu kursora (rozmiaru 'prostokącika') 

• $05 - zmiana aktywnej strony graficznej 

• $00 - ustawienie trybu pracy karty graficznej, BARDZO WAŻNA FUNKOA, opis zawiera również szczegółowe informacje o trybach graficznych, nas interesują 
tryby zgodne z VGA 

Zadanie 1. {procedura „pisz"} 

Napisz procedurę/funkcję, która jako parametr przyjmuje tekst oraz jego lewe/górne współrzędne wyświetlenia na ekranie i dokonując odpowiednich przeliczeń 
umieszcza tekst na ekranie. Określ samodzielnie atrybuty tekstu (tzn. załóż "z góry") oraz sam zadecyduj o wyborze układu współrzędnych ekranu (tzn. czy lewy 
górny róg oznacza (0,0), (1,1) czy jeszcze inne współrzędne). Zademonstruj działanie procedury/funkcji w prostym programie. 



Zadanie 2. {procedura „piszZ"} 

Przerób zadanie 1 z postaci "pamięciowej" na wykorzystującą funkcje BlOSa. Dodatkowo sprawdź działanie funkcji $01. 

program grafika_l; 
uses crt,Dos; 



var x,y:byte; 



tekst : string; 



procedurę pisz (x, y:byte; tekst : string; atrybut :byte) ; 
var 

s, o : word; 
i :byte; 
begin 

if y*150+x+length (tekst) > 4000 then writeln (' Tekst wykracza poza obszar ekranu') 

else 

begin 

s:=$B800; 

o:=$0000+x*2+y*160; 

for i:=l to length (tekst) do 

begin 

mem [s : o] :=ord (tekst [i] ) ; 
inc (o) ; 

mem [ s : o ] : =atrybut ; 
inc (o) ; 

end; 

end; 

end; 



procedurę pisz2 (x, y zbyte; tekst : string; atrybut : byte) ; 
var r:registers; 

i :byte; 
begin 

for i:=l to length (tekst) do 
begin 



r .AH 


= $02; 


r .BH 


= 0; 


r .DH 


=y; 


r .DL 


=x; 


intr ($10, r) ; 


r .AH 


= $09; 


r .AL 


=ord (tekst [i 


r .BH 


= 0; 


r .BL 


=atrybut; 


r .ex 


= 1; 


intr ($10, r) ; 


inc (x) ; 


if x>160 then 


begin 




X : =0 ; 




inc (y) ; 


end; 





end; 

end; 
begin 

clrscr ; 

writeln (' Podaj tekst do wypisania na ekranie: '); 
readln (tekst) ; 

writeln (' Podaj współrzędne: '); 

readln (x, y) ; 

clrscr; 

pisz (x, y, tekst, 3 ) ; 
pisz2 (x+l, y+1, tekst, 3) ; 
readln; 

end. 



Zadanie 3. 

Napisz program tworzący ten sam tekst na dwóch stronach video. Tekst powinien różnić się jedynie tłem pod znaicami. Wyświetlaj naprzemiennie obie strony (w 
równych odstępach czasowych), aby stworzyć efel<t prostej animacji. 

program grafika_2; 
uses Crt,Dos; 

procedurę pisz2 (x, y :byte; tekst : string; atrybut :byte; strona :byte) ; 
var r:registers; 

i :byte; 
begin 

for i:=l to length (tekst) do 
begin 

r.AH:=$02; 
r .BH:=strona; 
r.DH:=y; 
r.DL:=x; 
intr ($10, r) ; 
r.AH:=$09; 

r.AL:=ord(tekst[i] ) ; 
r . BH : =strona; 
r . BL : =atrybut ; 



r . ex : =1 ; 

intr ($10,r) ; 

inc (x) ; 

if x>160 then 

begin 

X : =0 ; 
inc (y) ; 

end; 

end; 

end; 

procedurę strona (numer ; byte ) ; 

var r : registers ; 

begin 

r.AH:=$05; 
r .AL:=numer; 
intr ($10,r) ; 

end; 
begin 

strona (0) ; 
clrscr ; 
strona (1) ; 
clrscr; 
strona (2) ; 
clrscr; 
strona (3) ; 
clrscr; 

pisz2 (10,10, 'POLITECHNIKA' ,3,1); 
pisz2(ll,10, 'POLITECHNIKA' ,10,2); 
pis22 (12, 10, ' POLITECHNIKA' ,4,3); 
while not keypressed do 
begin 

strona (1) ; 
delay (150) ; 
strona (2) ; 
delay (150) ; 
strona (3) ; 
delay (150) ; 

end; 

end . 

Podobnie jak grafika w trybie tekstowym grafika punktowa może być umieszczana na ekranie dwiema metodami: 

• Bezpośredni zapis do pamięci - metoda szybsza 

• Wywołanie odpowiedniej funkcji BlOSa - metoda wolniejsza 

Zanim zaczniemy cokolwiek rysować na ekranie (obojętnie czy metodą 1 czy 2) musimy ustawić kartę grafiki w tryb grafiki punktowej. Adres pamięci od którego 
rozpoczyna się umieszczanie pikseli to $A000:$0000 (kolorowa karta zgodna z VGA). Dla każdego punktu na ekranie przydzielono w pamięci 1 bajt kodujący kolor 
(stąd 256 kolorów). Podobnie jak w trybie tekstowym umieszczanie zaczyna się w lewym górnym rogu ekranu (0,0). W trybie graficznym, tak jak w tekstowym, 
można w niektórych trybach korzystać z więcej niż jednej strony graficznej. 

Buforowana grafika to rysowanie na stronie niewidocznej w momencie rysowania, a następnie, kiedy rysunek jest gotowy, przełączenie się na taką stronę. Po 
zakończeniu rysowania w trybie graficznym (tuż przed zakończeniem programu) powinno się przywrócić tryb znakowy np. S03. 

Funkcje BlOSa do grafiki punktowej 

Funkcje te (podobnie jak grafika znakowa) zgromadzono w przerwaniu nr $10. Oto najważniejsze z nich: 

• $00 - ustawienie trybu pracy karty graficznej, BARDZO WAŻNA FUNKCJA, opis zawiera również szczegółowe Informacje o trybach graficznych, nas Interesują 

tryby zgodne z VGA 

• $05 - zmiana aktywnej strony graficznej 

• $0F - odczyt stanu ekranu (m.in. aktywna strona) 

• $0C - postawienie punktu (piksela) na ekranie 

• $0D - odczyt punktu (piksela) z ekranu 

• $1A, $1B - odczyt różnych informacji o karcie graficznej 

• $13 - wypisanie ciągu znaków w trybie grafiki (działa też write/writeln) 

Zaawansowane: 

• $10 - wybór palety kolorów 

• $11 - wybór generatora znaków 

Zadanie 1 

Napisz procedurę/funkcję, która jako parametr przyjmuje współrzędne lewego górnego rogu prostokąta oraz jego szerokość i wysokość a następnie dowolnym 
kolorem oraz metodą rysuje prostokąt w trybie grafiki punktowej. Określ samodzielnie kolor linii. Spróbuj rozwiązać zadanie obiema metodami umieszczania 
pikseli (pamięć i BIOS). Zademonstruj działanie procedury/funkcji w prostym programie. 

uses dos,crt; 

var 

X, y, a,b: integer; 
r : registers ; 

procedurę prostokąt (x, y, a,b: integer) ; 



var 

i : integer ; 

x_t, y_t : integer; 

begin 

r.ah:=$00; 

r.al:=$13; 

intr ($10,r) ; 

x_t : =x ; 

y_t:=y; 

r.ah:=$05; 

r.al:=$00; 

intr ($10, r) ; 

for i:=l to a do 



for i:=l to b do 



for i:=l to a do 



for i:=l to b do 



begin 
r . ah : 
r.bh: 
r.al: 
r . ex : 
r . dx : 
intr 
x_t : = 
end; 
begin 
r . ah : 
r.bh: 
r.al: 
r . ex : 
r . dx : 
intr ( 
y_t: = 
end; 
begin 
r . ah : 
r.bh: 
r.al: 
r . ex : 
r . dx : 
intr ( 
x_t: = 
end; 
begin 
r . ah : 
r.bh: 
r.al: 
r . ex : 
r . dx : 
intr ( 
y_t: = 
end; 



=$0C; 
=$00; 
=$03; 
=x_t; 
=y_t; 
$10, r) ; 
X t+1; 



= $0C; 
=$00; 
=$04; 
=x_t; 
=y_t; 
$10, r) ; 
y_t+l; 



=$0C; 
=$00; 
= $02; 
=x_t; 
=y_t; 
$10, r) ; 
X t-1; 



= $0C; 
= $00; 
= $02; 
=x_t; 
=y_t; 
$10, r) , 
y_t-l; 



end; 



begin 
clrscr ; 

writeln ( ' Poda j x: ');read(x); 

writeln (' Podaj y: ');read(y); 

writeln (' Podaj a: ');read(a); 

writeln (' Podaj b: ');read(b); 

prostokąt (x, y, a,b) ; 

{r .ah:=$00; 

r.al:=$03; 

intr ($10, r) ; } 

readkey; 

end. 

Obsługa myszy: 

Bez względu na tryb pracy karty graficznej (znakowy lub punktowy) funkcje myszy zgodnej ze standardem Microsoft obsługiwane są jako funkcje przerwania 
$33. Każdemu położeniu kursora myszki na ekranie odpowiadają tzw. współrzędne ekranu wirtualnego (nie jest to to samo co rozdzielczość!!!). W trybie 
znakowym współrzędne są przemnażane przez rozmiary matrycy znaku, np. jeżeli kursor (prostokącik) jest nad pierwszym znakiem (lewy górny róg), zaś matryca 
znaku to 8x8 punktów to wtedy współrzędne wynoszą (0,0), znak obok (8,0), znak poniżej (0,8), znak obok i poniżej (8,8), itd. Przy pracy w trybie grafiki 
punktowej współrzędne kursora odnoszą się do tzw. punktu hot-spot, czyli np. czubka strzałki kursora. Jeżeli chcemy obsługiwać stale kilka zdarzeń związanych z 
myszką (np. sprawdzenie czy w momencie naciśnięcia lewego przycisku myszy kursor znajdował się nad określonym obszarem ekranu) to można to łatwo uczynić 
pisząc kilka procedur/funkcji obsługujących wybrane funkcje przerwania myszy (np. jedna procedura/funkcja, która odczytuje współrzędne położenia kursora 
myszy i druga która odczytuje, który przycisk myszy naciśnięto). Następnie (WAŻNE!) napisane podprogramy wywołujące funkcje myszy trzeba umieścić w 
JEDNEJ PROCEDURZE OPATRZONEJ DYREKTYWĄ INTERRUPT i adres tej procedury przypisać do programu obsługi myszy (patrz wykaz ważniejszych funkcji 
myszy), np. sprawdź czy naciśnięto lewy przycisk myszy, jeśli tak to sprawdź czy współrzędne wskazują, że kursor myszy znalazł się nad jakimś przyciskiem, jeśli 
tak to odrysuj przycisk jako wciśnięty I wykonaj (lub zakolejkuj) przynależną mu procedurę/funkcję. 



Ważniejsze funkcje obsługi myszy 

Są to funkcje zgromadzone w przerwaniu $33 I wywoływane poprzez przypisanie do rejestru AX: 

• $0000 - Inicjacja I sprawdzenie stanu myszki 

• $0001 i $0002 - wyświetlenie I ukrycie kursora myszy 

• $0003 - odczyt położenia i stanu przycisków 



• $0004 - ustawienie położenia 



• $0005/$0006 - odczyt stanu naciśnięcia/zwolnienia przycisków 

• $000C - WAŻNE! ustawienie adresu NASZEJ procedury obsługi myszy (patrz objaśnienia wyżej) 

• $0014 - WAŻNE! zmiana procedury obsługi myszy z ZACHOWANIEIVI ADRESU STAREJ PROCEDURY (nieco podobne do $000C) 

• $001D/S001E - fun!<cje związane z numerem strony, na l<tórej znajduje się !<ursor 

• $0026 - WAŻNE! odczyt współrzędnych el<ranu wirtuainego (porównaj z $0031) 

Zadanie 2 

Napisz procedury/fun!<cje, l<tóre w trybie znal<owym l<arty graficznej odczytują i wyświetlają na środ!<u e!<ranu bieżące współrzędne położenia l<ursora myszy. 
Pamiętaj o przeiiczaniu współrzędnych zgodnie z matrycą zna!<u w danym trybie grafiici znal<owej. Ws!<azówl<a - zrób użytel< z funl<cji $000C !ub $0014. 

Zadanie 3 

Zrób to samo co w zadaniu 2, ale w trybie grafiki punktowej. 

program zad_3; 
uses dos,crt; 

procedurę współrzędne; 

var 

r : registers ; 
X, y : integer; 

ex, dx, scroll , Imb, rmb : integer; 

begin 

r.ah;=$00; 

r.al:=$03; 

intr ($10, r) ; 

r .ax:=$0000; 

intr ($33, r) ; 

if r.ax=$0000 then begin 

writeln ( 'Myszka nie zainstalowana!!'); 

exit; 

end; 

if r.ax=$FFFF then begin {jeśli myszka zainstalowana} 

clrscr ; 

r.ax:=$0001; {pokaz kursor} 

intr ($33, r) ; 
repeat begin 

r.ax:=$0003; { zwroc pozycje} 

intr ($33, r) ; 

if (cx<>r.cx) or (dx<>r.dx) then begin 
ex : =r . ex; 
dx : =r . dx; 

clrscr; 
writeln (ex) ; 
writeln (dx) ; 

writeln ( ' Stan przycisków: ' ) ; 
Imb : =r . bx; 
rmb : =r . bx; 
scroll : =r . bx; 

if lmb=l then writeln (' Lewy wciśnięty'); 

if rmb=2 then writeln (' Prawy wciśnięty'); 

r.ax:=$0001; {zwraca stan przycisków} 

intr ($33, r) ; 

end 

end; 

until keypressed; 
end; 

end; 
begin 

współrzędne; 

readkey; 

end. 

IVIożna podmienić właściwie prawie każdą procedurę obsługi przerwania na własną. Własna procedura powinna być bezparametrowa !ub jako parametry 
przekazywać jedynie wartości rejestrów oraz OBOWIĄZKOWO powinna zostać opatrzona dyrektywą 'interrupt' (szczegóły można sprawdzić w pomocy Turbo 
Pascala dla hasła 'interrupt'). Z oczywistych względów NIE WOLNO bezładnie podmieniać sobie procedur obsługi dowolnych przerwań (przestanie funkcjonować 
system operacyjny lub będzie działał nieprawidłowo). Istnieje możliwość wywołania we własnej procedurze oryginalnego programu obsługi przerwania. 
Technicznie oznacza to wykonanie kodu spod określonego adresu w pamięci (czyli tego adresu, gdzie znajduje się oryginalny podprogram). Dodatkowo - można 
we własnej procedurze obsługi danego przerwania wywoływać inne przerwania/funkcje DOSa/BIOSa (lntr() !ub l\/lsDos()). 

Pisząc program, który podmienia procedurę obsługi przerwania na własną powinniśmy pamiętać o kliku podstawowych regułach: 

1. Napisz własną procedurę obsługi przerwania stosując się do wyżej wymienionych wymogów 

2. Zapamiętaj adres oryginalnej procedury (GetlntVec()) 

3. Podmień procedurę na własną (SetlntVec()) 

4. Dobry styl programowania wymaga, aby przed zakończeniem program przywrócił oryginalną procedurę obsługi przerwania (adres zapamiętany w kroku 2). 
Zadanie 1 

Korzystając z poznanych funkcji DOSa i BlOSa (oraz zasady budowania/przechowywania obrazu w trybie znakowym) napisz procedurę zapisującą zawartość 
ekranu do pliku po naciśnięciu klawisza PrintScreen. 



Wskazówki: przypomnij sobie wiadomości o pamięci ekranu (ewentualnie funkcjacli odczytujących zawartość ekranu). Klawisz PrintScreen wywołuje przerwanie 
$5 powodujące wysłanie zawartości ekranu na drukarkę (wywołanie przerwania $17). Spróbuj najpierw podmienić przerwanie Sl7 - jeśli nie zadziała - $5. 



uses 
dos, crt; 



var 

r: registers; 
tmp: pointer; 



procedurę check; 
var 

nr :byte; 
begin 

r.ah:=$02; 

nr : =r . dx; 

intr ($17, r) ; 

if(nr=0) then writeln (' Drukarka zajęta'); 
end; 

procedurę prtscr; interrupt; 

var 
plik : text; 
i :byte; 

begin 

assign(plik, 'd:\213a\prtscr. txt ' ) ; 
rewrite (plik) ; 
for i:=0 to 80 do 
begin 

write (plik, chr (mem[$B800 : i*2] ) ) ; 
end; 

close (plik) ; 
end; 



begin 
clrscr ; 
readln; 

getintvec ($5, tmp) ; 
setintvec ($5, (3prtscr) ; 
readln; 

setintvec ($5, tmp) ; 
end. 
Zadanie 2 

Istnieje przerwanie periodycznie wywoływane przez procesor - $1C (kilkanaście razy na sekundę). Oznacza to wywoływanie procedury przypisanej do tego 
przerwania. Napisz program wyświetlający na ekranie aktualny czas (skorzystaj z wiadomości o funkcjach odczytu czasu do napisania własnej procedury obsługi 
przerwania $1C). Wybierz tryb znakowy. 



uses dos, crt; 



var r: registers; 
temp: pointer; 



procedurę setmode; 
begin 

r.ah:=$00; 

r.al:=$03; 

intr($10,] 
end; 



{ustawienie trybu znakowego} 



procedurę czas (var tmp_sek:byte) ; interrupt; 
var 

Id, Is, Ij :byte; 
begin 
r.ah:=$02; 
intr ($lA,r) ; 
ld:=10* (r.ch shr 4 
Ij :=10* (r.cl shr 4 



ls: = 



(r.ch and $0F) 
(r.cl and $0F) 
(r.dh and $0F) 



=10* (r.dh shr 4) 
if (ls<>tmp_sek) then begin 
clrscr; 
tmp_sek : =ls ; 

writeln ( 'Godzina: ' , Id, ' : ' , 1 j , ' : ' , Is ) ; 
end; 
end; 



begin 
setmode; 
clrscr; 

getintvec ($lc, temp) ; 
setintvec ($lc, Sczas) ; 
readln; 

setintvec ($lc, temp) ; 
end. 



